5 GOSUB60000 10 PRINT"[147]":POKE53280,6:POKE53281,15 20 PRINTTAB(240)TAB(40)"  [146]" 30 PRINT"  TRIGONOMETRIC COMPUTATIONS [146]" 40 PRINT"  [146]" 50 PRINTTAB(243)" HOW MANY DECIMAL PLACES? (1-4) ":WAIT198,1:GETO0$:O0=VAL(O0$) 60 POKE198,0:IFO0<1ORO0>4THENPRINT"[145][145][145][145][145][145][145][145]":GOTO50 70 S$="S -":IFO0=1THENS$=" -" 80 PRINT"[145] ANSWERS WILL BE ROUNDED TO"O0"PLACE"S$::FORI=1TO2000:NEXT 90 RY=10^O0:DEFFNRN(Q)=INT(Q*RY+.5)/RY 100 X=0:Z=0:B=0:A=0:C=0:POKE53280,11:POKE53281,15:PRINT"[144]" 110 PRINT"[147]" 120 PRINT" X 130 [153]" SGN(null) 140 PRINT" [180] [205] 150 [153]" SGN (null) 160 PRINT" B[180] [205]A 170 [153]" SGN (null) 180 PRINT" [180] [205] 190 [153]" SGN (null) 200 PRINT" [144]90[183][183][183][183][183][183][183][183]Z 210 [153]" C 220 PRINT"  [146] [146][144]" 230 PRINT"  [146] [146][144]" 240 PRINT"[145][145]  [146] SELECT YOUR TWO 'KNOWNS' [146] [146][144]" 250 K$="":PRINTTAB(96)"[192]> [191][191] <[192][157][157][157][157][157]";:POKE204,0 260 GETKK$:PRINTKK$;:K$=K$+KK$:IFLEN(K$)<2THEN260 270 POKE204,1:PRINT"[145]" 280 IFK$="BC"ORK$="CB"THEN960 290 IFK$="AB"ORK$="BA"THEN1110 300 IFK$="AC"ORK$="CA"THEN1280 310 IFK$="AX"ORK$="XA"THEN1450 320 IFK$="AZ"ORK$="ZA"THEN1650 330 IFK$="BX"ORK$="XB"THEN1850 340 IFK$="BZ"ORK$="ZB"THEN2050 350 IFK$="CX"ORK$="XC"THEN2240 360 IFK$="CZ"ORK$="ZC"THEN2410 370 IFK$="XZ"ORK$="ZX"THEN2590 380 IFK$="34"THENLOAD"HELLO CONNECT",8 390 K$="":PRINT"[145][145][145]":GOTO 110 400 PRINT"[147]" 410 PRINT"" 420 PRINT" [180][205] 430 [153]" SGN (null) 440 PRINT" [180] [205] 450 [153]" SGN (null) 460 PRINT" [180] [205] 470 [153]" SGN (null) 480 PRINT" [180] [205] 490 [153]" STOP90USRUSRUSRUSRUSRUSRUSRUSR" 500 [153]" 510 PRINT" [145][145][145][145][145][145][145][145][145][145]";X 520 PRINTTAB(24)"";RIGHT$(STR$(Z),2) 530 PRINTTAB(21)"[145][145][145][145][145]";A 540 PRINTTAB(13)"[145]";B 550 PRINTTAB(18)"";C 560 PRINTTAB(211)" [146][144]" 570 PRINTTAB(11)" [146] CORRECT (Y/N) [146] [146][144]" 580 PRINTTAB(11)" [146][144]" 590 GETA$:IFA$=""THEN590 600 IFA$="Y"THENRETURN 610 GOTO100 620 REM - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 630 AA=A 640 AB=B 650 AC=C 660 AA=SQR((B*B)+(C*C)):AA=FNRN(AA) 670 AB=SQR((A*A)-(C*C)):AB=FNRN(AB) 680 AC=SQR((A*A)-(B*B)):AC=FNRN(AC) 690 PRINT"[147]" 700 PRINT" X 710 [153]" SGN(null) 720 PRINT" [180] [205] 730 [153]" SGN (null) 740 PRINT" B[180] [205]A 750 [153]" SGN (null) 760 PRINT" [180] [205] 770 [153]" SGN (null) 780 PRINT" [144]90[183][183][183][183][183][183][183][183]Z 790 [153]" CSTOP" 800 [153]" SINE ANGLE 'X' =";XS 810 [153]" COS ANGLE 'X' =";XC 820 [153]"  ANGLE WAIT 'X' =";XX"DEGREES" 830 [153]" STOPSINE ANGLE 'Z' =";ZS 840 [153]" COS ANGLE 'Z' =";ZC 850 [153]" TAN ANGLE 'Z' =";ZT 860 [153]"  ANGLE WAIT 'Z' =";ZZ "DEGREES" 870 [153]" STOPLENGTH SIDE 'A' =";AA 880 [153]" LENGTH SIDE 'B' =";AB 890 [153]" LENGTH SIDE 'C' =";AC 900 [153][163]43)"VERIFY ANOTHER(Y/N) : CHANGE DECIMAL(.) " 910 [161]A$:[139]A$[178]""[167]910 920 [139]A$[178]"."[167][153]"ONONONONONONONON":[137]50 930 [139]A$[178]"Y"[167]100 940 [139]A$[178]"N"[167][147]"HELLO CONNECT",8 950 [137]910 960 [133]" SIDE B =";B$:B[178][197](B$):[139]B[178]0[167][153]"ONONONON":[137]960 970 [133]" SIDE C =";C$:C[178][197](C$):[139]C[178]0[167][153]"ONONON":[137]970 980 [141]400 990 AA[178][186]((B[172]B)[170](C[172]C)):AA[178][165]RN(AA) 995 [139] D0 [167] [153]"LOADWOW! DIVISION BY ZERO ERROR!!!":[129]T[178]1[164]1800:[130]:[138]10 997 [139] AA[178]0 [167] D0[178][171]1:[137]995 998 [139] C[178]0[167] D0[178][171]1:[137]995 1000 AB[178]B:AC[178]C 1010 ZS[178]B[173]AA:ZS[178][165]RN(ZS) 1020 XS[178]C[173]AA:XS[178][165]RN(XS) 1030 ZC[178]C[173]AA:ZC[178][165]RN(ZC) 1040 ZT[178]B[173]C:ZT[178][165]RN(ZT) 1050 XC[178]B[173]AA:XC[178][165]RN(XC) 1060 ZZ[178]([193](ZT))[172]57.2958:ZZ[178][165]RN(ZZ) 1070 XX[178]90[171]ZZ:XX[178][165]RN(XX) 1080 [143] - RADIANS = 57.2958 1090 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 1100 [137]690 1110 [133]" SIDE A =";A$:A[178][197](A$):[139]A[178]0[167][153]"ONONONON":[137]1110 1120 [133]" SIDE B =";B$:B[178][197](B$):[139]B[178]0[167][153]"ONONON":[137]1120 1130 [139]B[178][177]A[167][153][163]11)"ON ONON":[137]1120 1140 [141]400 1150 AC[178][186]((A[172]A)[171](B[172]B)):AC[178][165]RN(AC) 1160 AA[178]A 1170 AB[178]B 1175 [139]A[178]0[167]D0[178][171]1:[137]995 1176 [139]AC[178]0[167]D0[178][171]1:[137]995 1180 ZS[178]B[173]A:ZS[178][165]RN(ZS) 1190 XS[178]AC[173]A:XS[178][165]RN(XS) 1200 ZC[178]AC[173]A:ZC[178][165]RN(ZC) 1210 ZT[178]B[173]AC:ZT[178][165]RN(ZT) 1220 XC[178]B[173]A:XC[178][165]RN(XC) 1230 ZZ[178]([193](ZT))[172]57.2958:ZZ[178][165]RN(ZZ) 1232 [139] ZS[178]0 [167]D0[178][171]1:[137]995 1234 [139] AA[178]0 [167]D0[178][171]1:[137]995 1235 [139] AC[178]0 [167]D0[178][171]1:[137]995 1240 XX[178]90[171]ZZ:XX[178][165]RN(XX) 1250 [143] - RADIANS = 57.2958 1260 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 1270 [137]690 1280 [133]" SIDE A =";A$:A[178][197](A$):[139]A[178]0[167][153]"ONONONON":[137]1280 1290 [133]" SIDE C =";C$:C[178][197](C$):[139]C[178]0[167][153]"ONONON":[137]1290 1300 [139]C[178][177]A[167][153][163]11)"ON ONON":[137]1290 1310 [141]400 1320 AB[178][186]((A[172]A)[171](C[172]C)):AB[178][165]RN(AB) 1330 AA[178]A 1340 AC[178]C 1345 [139] A[178]0 [167] D0[178][171]1:[137]995 1347 [139] C[178]0 [167] D0[178][171]1:[137]995 1350 ZS[178]AB[173]A:ZS[178][165]RN(ZS) 1360 XS[178]C[173]A:XS[178][165]RN(XS) 1370 ZC[178]C[173]A:ZC[178][165]RN(ZC) 1380 ZT[178]AB[173]C:ZT[178][165]RN(ZT) 1390 XC[178]AB[173]A:XC[178][165]RN(XC) 1400 ZZ[178]([193](ZT))[172]57.2958:ZZ[178][165]RN(ZZ) 1410 XX[178]90[171]ZZ:XX[178][165]RN(XX) 1420 [143] - RADIANS = 57.2958 1430 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 1440 [137]690 1450 [133]" SIDE A =";A$:A[178][197](A$):[139]A[178]0[167][153]"ONONONON":[137]1450 1460 [133]" ANGLE X =";X$:X[178][197](X$):[139]X[178]0[167][153]"ONONON":[137]1460 1470 [139]X[177]89[167][153][163]12)"ON ONON":[137]1460 1480 [141]400 1490 Y[178]90 1500 XX[178]X 1510 ZZ[178]Y[171]X:ZZ[178][165]RN(ZZ) 1520 XC[178][190](X[173]57.2958):XC[178][165]RN(XC) 1530 B[178]A[172]XC:B[178][165]RN(B) 1540 XS[178][191](X[173]57.2958):XS[178][165]RN(XS) 1550 AB[178]A[172]XC:AB[178][165]RN(AB) 1560 AC[178]A[172]XS:AC[178][165]RN(AC) 1570 Z[178]Y[171]X:Z[178][165]RN(Z) 1572 [139] A[178]0[167]D0[178][171]1:[137]995 1573 [139] AC[178]0[167]D0[178][171]1:[137]995 1580 ZC[178]AC[173]A:ZC[178][165]RN(ZC) 1590 ZT[178]AB[173]AC:ZT[178][165]RN(ZT) 1600 ZS[178]AB[173]A:ZS[178][165]RN(ZS) 1610 AA[178]A 1620 [143] - RADIANS = 57.2958 1630 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 1640 [137]690 1650 [133]" SIDE A =";A$:A[178][197](A$):[139]A[178]0[167][153]"ONONONON":[137]1650 1660 [133]" ANGLE Z =";Z$:Z[178][197](Z$):[139]Z[178]0[167][153]"ONONON":[137]1660 1670 [139]Z[177]89[167][153][163]12)"ON ONON":[137]1660 1680 [141]400 1690 Y[178]90 1700 ZZ[178]Z 1710 AA[178]A 1720 ZC[178][190](Z[173]57.2958):ZC[178][165]RN(ZC) 1730 AC[178]A[172]ZC:AC[178][165]RN(AC) 1740 ZS[178][191](Z[173]57.2958):ZS[178][165]RN(ZS) 1750 AB[178]A[172]ZC:AB[178][165]RN(AB) 1760 AC[178]A[172]ZS:AC[178][165]RN(AC) 1770 X[178]Y[171]Z:X[178][165]RN(X) 1772 [139] AC[178]0 [167] D0[178][171]1:[137]995 1773 [139] A[178]0 [167] D0[178][171]1:[137]995 1780 ZT[178]AB[173]AC:ZT[178][165]RN(ZT) 1790 XS[178]AB[173]A:XS[178][165]RN(XS) 1800 XX[178]90[171]Z:XX[178][165]RN(XX) 1810 XC[178]AC[173]A:XC[178][165]RN(XC) 1820 [143] - RADIANS = 57.2958 1830 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 1840 [137]690 1850 [133]" SIDE B =";B$:B[178][197](B$):[139]B[178]0[167][153]"ONONONON":[137]1850 1860 [133]" ANGLE X =";X$:X[178][197](X$):[139]X[178]0[167][153]"ONONON":[137]1860 1870 [139]X[177]89[167][153][163]12)"ON ONON":[137]1860 1880 [141]400 1890 Y[178]90 1900 XX[178]X 1910 AB[178]B 1920 XC[178][190](X[173]57.2958):XC[178][165]RN(XC) 1925 [139] XC[178]0 [167] D0[178][171]1:[137]995 1926 [139] AA[178]0 [167] D0[178][171]1:[137]995 1927 [139] AC[178]0 [167] D0[178][171]1:[137]995 1930 AA[178]B[173]XC:AA[178][165]RN(AA) 1940 XS[178][191](X[173]57.2958):XS[178][165]RN(XS) 1950 AC[178]AA[172]XS:AC[178][165]RN(AC) 1960 XT[178][192](X[173]57.2958):XT[178][165]RN(XT) 1970 Z[178]Y[171]X:Z[178][165]RN(Z) 1980 AC[178]B[172]XT:AC[178][165]RN(AC) 1990 ZS[178]B[173]AA:ZS[178][165]RN(ZS) 2000 ZZ[178]Y[171]X:ZZ[178][165]RN(ZZ) 2010 ZC[178]AC[173]AA:ZC[178][165]RN(ZC) 2020 ZT[178]B[173]AC:ZT[178][165]RN(ZT) 2030 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 2040 [137]690 2050 [133]" SIDE B =";B$:B[178][197](B$):[139]B[178]0[167][153]"ONONONON":[137]2050 2060 [133]" ANGLE Z =";Z$:Z[178][197](Z$):[139]Z[178]0[167][153]"ONONON":[137]2060 2070 [139]Z[177]89[167][153][163]12)"ON ONON":[137]2060 2080 [141]400 2090 Y[178]90 2100 ZZ[178]Z 2110 AB[178]B 2120 ZC[178][190](Z[173]57.2958):ZC[178][165]RN(ZT) 2130 ZS[178][191](Z[173]57.2958):ZS[178][165]RN(ZS) 2140 XX[178]Y[171]Z:XX[178][165]RN(XX) 2150 AA[178]AB[173]ZS:AA[178][165]RN(AA) 2160 XT[178][192](XX[173]57.2958):XT[178][165]RN(XT) 2170 ZT[178][192](Z[173]57.2958):ZT[178][165]RN(ZT) 2180 AC[178]B[172]XT:AC[178][165]RN(AC) 2190 XX[178]Y[171]Z:XX[178][165]RN(XX) 2200 XS[178]AC[173]AA:XS[178][165]RN(XS) 2210 XC[178]ZS:XC[178][165]RN(XC) 2220 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 2230 [137]690 2240 [133]" SIDE C =";C$:C[178][197](C$):[139]C[178]0[167][153]"ONONONON":[137]2240 2250 [133]" ANGLE X =";X$:X[178][197](X$):[139]X[178]0[167][153]"ONONON":[137]2250 2260 [139]X[177]89[167][153][163]12)"ON ONON":[137]2250 2270 [141]400 2280 Y[178]90 2290 XX[178]X 2300 AC[178]C 2310 ZZ[178]Y[171]X:ZZ[178][165]RN(ZZ) 2320 XC[178][190](X[173]57.2958):XC[178][165]RN(XC) 2330 XS[178][191](X[173]57.2958):XS[178][165]RN(XS) 2340 ZC[178][190](ZZ[173]57.2958):ZC[178][165]RN(ZC) 2350 ZT[178][192](ZZ[173]57.2958):ZT[178][165]RN(ZT) 2352 [139] XS[178]0[167]D0[178][171]1:[137]995 2354 [139] ZT[178]0[167]D0[178][171]1:[137]995 2356 [139] AA[178]0[167]D0[178][171]1:[137]995 2360 AA[178]C[173]XS:AA[178][165]RN(AA) 2370 AB[178]C[172]ZT:AB[178][165]RN(AB) 2380 ZS[178]AB[173]AA:ZS[178][165]RN(ZS) 2390 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 2400 [137]690 2410 [133]" SIDE C =";C$:C[178][197](C$):[139]C[178]0[167][153]"ONONONON":[137]2410 2420 [133]" ANGLE Z =";Z$:Z[178][197](Z$):[139]Z[178]0[167][153]"ONONON":[137]2420 2430 [139]Z[177]89[167][153][163]12)"ON ONON":[137]2420 2440 [141]400 2450 Y[178]90 2460 ZZ[178]Z 2470 AC[178]C 2480 ZC[178][190](Z[173]57.2958):ZC[178][165]RN(ZC) 2490 ZS[178][191](Z[173]57.2958):ZS[178][165]RN(ZS) 2500 XX[178]Y[171]Z:XX[178][165]RN(XX) 2502 [139]ZC[178]0[167]D0[178][171]1:[137]995 2510 AA[178]AC[173]ZC:AA[178][165]RN(AA) 2512 [139]AA[178]0[167]D0[178][171]1:[137]995 2520 XT[178][192](XX[173]57.2958):XT[178][165]RN(XT) 2530 ZT[178][192](Z[173]57.2958):ZT[178][165]RN(ZT) 2540 AB[178]C[172]ZT:AB[178][165]RN(AB) 2550 XS[178]C[173]AA:XS[178][165]RN(XS) 2560 XC[178]ZS 2570 [143] - ANGLE EXPRESS IN RADIANS = ANGLE/57.2958 2580 [137]690 2590 [153]"LOAD"[163]242)"ONE OF THE 'KNOWNS' MUST BE A SIDE!!" 2600 [153][163]240)[163]129)" ANY KEY TO CONTINUE ":[146]198,1:[151]198,0:[137]100 60000 NM$[178]" (null). (null). (null)OBER":PR$[178]"(null)RIG LENALC" 60005 [150][165]CN(N)[178][181](19[171]N[173]2) 60010 T$[178]" ":C[178]0:C$[178]"":[153]"LOAD":[151]53281,0 60015 [153][166]7)""T$:[153][166]7)" WAIT" 60020 [153][163][165]CN([195](PR$)))"ON"PR$ 60025 [153][166]7)""T$:[153]:[153][163]18)"BY" 60030 [153]:[153][166][165]CN([195](NM$)))"SYS"NM$"" 60035 [153]:[153][166]12)"LENOPYRIGHT 1986" 60040 [153]:[153]:[153]:[153]" (null)(null)ATNSTR$(null)(null)ATN(null) IS NOT PUBLIC DOMAIN." 60045 [153]:[153]" (null)LEASE RESPECT THE AUTHOR'S RIGHTS." 60050 [153]:[153]" (null)RESS SPACE BAR TO CONTINUE." 60055 [129]CC[178]1[164]48:[161]K$:[139]K$[178]" "[167]60070 60060 [139]CC[178]1[167][153][202](C$,C[170]2,1)"ONON";:C[178][168](C) 60065 [130]:[137]60050 60070 [153]C$[199](142):[142]